unit Class_Display;

interface
uses
  System.SysUtils,System.Classes,UniEngine;

type
  TRelation = class(TUniEngine)
  private
    FrElement:string;
    FcProprty:string;
  published
    property RELEMENT:string  read FrElement write FrElement;
    property CPROPRTY:string  read FcProprty write FcProprty;
  end;

  TDisplay=class(TUniEngine)
  private
    FObjectID:Integer;
    FPosition:Integer;
    FnElement:string;
    FnProprty:string;
    FvProprty:string;
    FInFormat:string;
    FRelation:TRelation;
  private
    FvDataTyp:string;
  public
    constructor Create;
    destructor Destroy; override;
  public
    property vDataTyp:string  read FvDataTyp write FvDataTyp;
  published
    property OBJECTID:Integer read FObjectID write FObjectID;
    property POSITION:Integer read FPosition write FPosition;
    property NELEMENT:string  read FnElement write FnElement;
    property NPROPRTY:string  read FnProprty write FnProprty;
    property VPROPRTY:string  read FvProprty write FvProprty;
    property INFORMAT:string  read FInFormat write FInFormat;
    property RELATION:TRelation read  FRelation write FRelation;
  end;



implementation

{ TDisplay }

constructor TDisplay.Create;
begin
  Relation:=TRelation.Create;
end;

destructor TDisplay.Destroy;
begin
  if FRelation<>nil then FreeAndNil(FRelation);
  inherited;
end;

end.
